home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / archive / net / kxtm248.lzh / ac.k20 next >
Encoding:
Text File  |  1993-06-10  |  879 b   |  29 lines
  1. -7;t\1,;TM;t\1,_LP;T>;&ac _LP \a(^\1;0;\wdnet_menu.lst);.
  2. &setparam \E(\7)
  3. &upwait    "\8"
  4. &modeminit \E(\9)
  5. &scroll 0
  6. &echo    "●\3にアクセスを開始します●"
  7. t\m(0;1;\4),!;F>;&tel2 \s(\4;!; ATD);gU
  8. t\m(0;1;\4),&;F>;\4;gU
  9. &tel    "ATD\4"
  10. :U;&ntt    "\5"
  11. $atelog=\2|\d(3) \t
  12. &logout    logoutexec
  13. #&addlog \3
  14. t\6,null;T>;&logopen "\E(\6)"
  15. vA=10;-10
  16. t\m(0;1;\#(10)),&;F>;\#(10);gZ
  17. :N
  18. $K=\#(\vA);t\$(K),;T>;&waitfor "\$(K)" "\E(\#(\+(\vA;1)))";vA=\+(\vA;2);gN
  19. :Z;.
  20. # メニュー部
  21. :M;-1;vA=3;&echo "<<Auto Login MENU>>"
  22. :L;$NET=\a(\vA;2;\wdnet_menu.lst)
  23. t\$(NET),;T>;&echo " * \U(\-(\vA;2);2) - \$(NET)";vA=\+(\vA;1);gL
  24. -10;&echo "どのネットにログインしますか(1-\-(\vA;3))？\x1b[>5l"
  25. $K<番号(1-\-(\vA;3))?
  26. )\x1b[>5h\n;t\$(K),;T>;$NET=\a(\+(\$(K);2);0;\wdnet_menu.lst);t\$(NET),;T>;&ac _LP \$(NET);.
  27. &echo "メニュー終了";.
  28. # KX_term20 1992,93 by H.Ogasawara [ac.k20 v1.50]
  29.